home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMDR6.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  734b  |  31 lines
  1. program DemoDirSix;
  2. {demdr6 - customizing the directory dialog box}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totDir, totIO1;
  6.  
  7. Var
  8.    DirWin: DirWinObj;
  9.    Result: tAction;
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with DirWin do
  13.    begin
  14.       Init;
  15.       SetFileDetails('','*.EXE *.COM *.BAT',AnyFile);
  16.       SetSortDetails(2,true);
  17.       Win^.SetColors(15,15,15,15);
  18.       IOTOT^.SetColLabel(15,15,15,15);
  19.       IOTOT^.SetColList(7,7,112,112);
  20.       IOTOT^.SetColField(7,112,8,8);
  21.       IOTOT^.SetColButton(112,127,127,127);
  22.       Result := Go;
  23.       if Result = Finished then
  24.          writeln('You chose file: ',GetChosenFile)
  25.       else
  26.          writeln('You escaped!');
  27.       Done;
  28.    end;
  29. end.
  30.  
  31.